home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / macscripts / 4112ObiWan / 4112ObiWan
Encoding:
Text File  |  1993-01-25  |  258 b   |  21 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit
  3.  
  4. #!/usr/local/bin/perl
  5.  
  6.  
  7. while (<>) {
  8.     if (/^╛DT\s+(.+)/) {
  9.         $entry = $1;
  10.         chop $entry while ($entry =~ /\s$/);
  11.         $Entry{$entry} = 1;
  12.     }
  13. }
  14.  
  15. print "=|\n";
  16. foreach $i (sort keys %Entry) {
  17.     print $i, "|\n";
  18. }
  19.  
  20. print "=|\n";
  21.